Start to fix lock up on small vertical window

diff --git a/which-key.el b/which-key.el
index d0703b6a975a0847e4cce77fd537c2d0b6b690b5..35143d567ff93b20a725a7f7a144358cd4bea16e 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -674,7 +674,7 @@ the maximum number of lines availabel in the target buffer."
                                 'face 'font-lock-comment-face)))
            (which-key/create-page-vertical (-insert-at status-key-i status-key keys)
                                            max-lines max-width prefix-width))
-          ((or (> n-rem-keys 0) (= 1 max-lines)) first-try)
+          ((or vertical (> n-rem-keys 0) (= 1 max-lines)) first-try)
           ;; do a simple search for now (TODO: Implement binary search)
           (t (while (not found)
                (setq prev-try next-try